

requires quotations.f

-? : :[] ( -- <name> )
   create here 0 , immediate does-:[
   last @ :noname swap ?dorothy-word swap ! postpone r@ postpone >quote ;

requires collections.f

int extend: rgba32
   union
   byte.field r
   byte.field g
   byte.field b
   byte.field a
end-type

